/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / FreeHand 3.1 / Aldus FreeHand 3.1 DEMO / Aldus FreeHand 3.1 DEMO.rsrc / Post_9122

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 2d 08 2f 65 78 74 72 | 75 64 65 2b 7b 20 2f 63 |.-./extr|ude+{ /c|
|00000010| 68 67 20 78 64 66 20 2f | 64 65 6c 74 61 79 20 78 |hg xdf /|deltay x|
|00000020| 64 66 20 2f 64 65 6c 74 | 61 78 20 78 64 66 20 2f |df /delt|ax xdf /|
|00000030| 74 63 31 20 78 64 66 32 | 2f 74 6f 70 20 78 64 66 |tc1 xdf2|/top xdf|
|00000040| 20 2f 72 69 67 68 74 20 | 78 64 66 20 2f 62 6f 74 | /right |xdf /bot|
|00000050| 74 6f 6d 20 78 64 66 20 | 2f 6c 65 66 74 20 78 64 |tom xdf |/left xd|
|00000060| 66 20 2f 74 63 32 20 78 | 64 66 0f 2f 66 61 63 74 |f /tc2 x|df./fact|
|00000070| 6f 72 20 2e 39 35 20 64 | 65 66 07 6e 65 77 70 61 |or .95 d|ef.newpa|
|00000080| 74 68 0f 74 63 31 20 6c | 65 6e 67 74 68 20 32 20 |th.tc1 l|ength 2 |
|00000090| 65 71 1f 7b 2f 74 63 31 | 20 74 63 31 20 73 70 6f |eq.{/tc1| tc1 spo|
|000000a0| 74 74 6f 70 72 6f 63 65 | 73 73 20 64 65 66 7d 20 |ttoproce|ss def} |
|000000b0| 69 66 0f 74 63 32 20 6c | 65 6e 67 74 68 20 32 20 |if.tc2 l|ength 2 |
|000000c0| 65 71 1f 7b 2f 74 63 32 | 20 74 63 32 20 73 70 6f |eq.{/tc2| tc2 spo|
|000000d0| 74 74 6f 70 72 6f 63 65 | 73 73 20 64 65 66 7d 20 |ttoproce|ss def} |
|000000e0| 69 66 0f 2f 63 6e 74 20 | 74 6f 64 72 61 77 20 64 |if./cnt |todraw d|
|000000f0| 65 66 03 2f 74 73 3f 7b | 67 73 61 76 65 20 63 75 |ef./ts?{|gsave cu|
|00000100| 72 72 65 6e 74 70 6f 69 | 6e 74 20 70 6f 70 20 2f |rrentpoi|nt pop /|
|00000110| 78 73 74 61 72 74 20 78 | 64 66 20 62 6c 6f 63 6b |xstart x|df block|
|00000120| 78 6f 66 66 20 77 6f 72 | 64 78 6f 66 66 20 61 64 |xoff wor|dxoff ad|
|00000130| 64 20 79 6f 66 66 41 72 | 6d 6f 76 65 74 6f 20 73 |d yoffAr|moveto s|
|00000140| 63 61 6c 65 66 20 64 75 | 70 20 73 63 61 6c 65 20 |calef du|p scale |
|00000150| 72 69 67 68 74 20 6c 65 | 66 74 20 73 75 62 20 32 |right le|ft sub 2|
|00000160| 20 64 69 76 20 78 73 74 | 61 72 74 20 6c 65 66 74 | div xst|art left|
|00000170| 20 73 75 62 20 73 75 62 | 3b 6e 65 67 20 63 75 72 | sub sub|;neg cur|
|00000180| 74 65 78 74 68 65 69 67 | 68 74 20 32 20 64 69 76 |textheig|ht 2 div|
|00000190| 20 6e 65 67 20 72 6d 6f | 76 65 74 6f 20 61 77 69 | neg rmo|veto awi|
|000001a0| 64 74 68 73 68 6f 77 20 | 67 72 65 73 74 6f 72 65 |dthshow |grestore|
|000001b0| 7d 64 65 66 14 31 20 31 | 20 74 6f 64 72 61 77 20 |}def.1 1| todraw |
|000001c0| 64 69 76 20 6e 65 67 20 | 30 01 7b 1d 64 75 70 20 |div neg |0.{.dup |
|000001d0| 2e 30 32 20 6c 65 7b 70 | 6f 70 20 30 7d 69 66 20 |.02 le{p|op 0}if |
|000001e0| 2f 66 72 61 63 20 78 64 | 66 0c 67 73 61 76 65 20 |/frac xd|f.gsave |
|000001f0| 63 62 6c 65 6e 64 08 64 | 75 70 20 65 78 65 63 14 |cblend.d|up exec.|
|00000200| 63 6e 74 20 31 20 6e 65 | 7b 67 72 65 73 74 6f 72 |cnt 1 ne|{grestor|
|00000210| 65 7d 69 66 12 2f 63 6e | 74 20 63 6e 74 20 31 20 |e}if./cn|t cnt 1 |
|00000220| 73 75 62 20 64 65 66 05 | 7d 20 66 6f 72 21 2f 74 |sub def.|} for!/t|
|00000230| 73 7b 67 73 61 76 65 20 | 61 77 69 64 74 68 73 68 |s{gsave |awidthsh|
|00000240| 6f 77 20 67 72 65 73 74 | 6f 72 65 7d 64 65 66 2a |ow grest|ore}def*|
|00000250| 74 63 31 20 73 65 74 74 | 65 78 74 63 6f 6c 6f 72 |tc1 sett|extcolor|
|00000260| 20 64 75 70 20 65 78 65 | 63 20 74 63 32 20 73 65 | dup exe|c tc2 se|
|00000270| 74 74 65 78 74 63 6f 6c | 6f 72 23 63 75 72 74 65 |ttextcol|or#curte|
|00000280| 78 74 68 65 69 67 68 74 | 20 2e 30 30 35 20 6d 75 |xtheight| .005 mu|
|00000290| 6c 20 73 65 74 6c 69 6e | 65 77 69 64 74 68 28 2f |l setlin|ewidth(/|
|000002a0| 74 73 20 7b 7b 66 61 6c | 73 65 20 63 68 61 72 70 |ts {{fal|se charp|
|000002b0| 61 74 68 20 73 74 72 6f | 6b 65 7d 74 61 7d 20 64 |ath stro|ke}ta} d|
|000002c0| 65 66 20 65 78 65 63 08 | 67 72 65 73 74 6f 72 65 |ef exec.|grestore|
|000002d0| 04 7d 62 64 66 0a 2f 62 | 6c 6f 63 6b 78 6f 66 66 |.}bdf./b|lockxoff|
|000002e0| 37 7b 72 69 67 68 74 20 | 6c 65 66 74 20 73 75 62 |7{right |left sub|
|000002f0| 20 32 20 64 69 76 20 63 | 75 72 72 65 6e 74 70 6f | 2 div c|urrentpo|
|00000300| 69 6e 74 20 70 6f 70 20 | 6c 65 66 74 20 73 75 62 |int pop |left sub|
|00000310| 20 73 75 62 7d 64 65 66 | 05 2f 79 6f 66 66 36 7b | sub}def|./yoff6{|
|00000320| 63 75 72 74 65 78 74 68 | 65 69 67 68 74 20 32 20 |curtexth|eight 2 |
|00000330| 64 69 76 20 64 65 6c 74 | 61 79 20 74 6f 64 72 61 |div delt|ay todra|
|00000340| 77 20 64 69 76 20 63 6e | 74 20 6d 75 6c 20 61 64 |w div cn|t mul ad|
|00000350| 64 7d 64 65 66 09 2f 77 | 6f 72 64 78 6f 66 66 1e |d}def./w|ordxoff.|
|00000360| 7b 64 65 6c 74 61 78 20 | 74 6f 64 72 61 77 20 64 |{deltax |todraw d|
|00000370| 69 76 20 63 6e 74 20 6d | 75 6c 7d 64 65 66 07 2f |iv cnt m|ul}def./|
|00000380| 74 6f 64 72 61 77 33 7b | 20 64 65 6c 74 61 78 20 |todraw3{| deltax |
|00000390| 64 75 70 20 6d 75 6c 20 | 64 65 6c 74 61 79 20 64 |dup mul |deltay d|
|000003a0| 75 70 20 6d 75 6c 20 61 | 64 64 20 73 71 72 74 20 |up mul a|dd sqrt |
|000003b0| 66 61 63 74 6f 72 20 6d | 75 6c 1e 31 30 30 20 63 |factor m|ul.100 c|
|000003c0| 68 67 20 73 75 62 20 61 | 62 73 20 66 61 63 74 6f |hg sub a|bs facto|
|000003d0| 72 20 6d 75 6c 20 61 64 | 64 21 64 75 70 20 30 20 |r mul ad|d!dup 0 |
|000003e0| 6c 65 7b 70 6f 70 20 31 | 7d 7b 72 6f 75 6e 64 7d |le{pop 1|}{round}|
|000003f0| 69 66 65 6c 73 65 7d 20 | 64 65 66 07 2f 73 63 61 |ifelse} |def./sca|
|00000400| 6c 65 66 2b 7b 31 30 30 | 20 63 68 67 20 73 75 62 |lef+{100| chg sub|
|00000410| 20 61 62 73 20 31 30 30 | 20 64 69 76 20 74 6f 64 | abs 100| div tod|
|00000420| 72 61 77 20 64 69 76 20 | 63 6e 74 20 6d 75 6c 27 |raw div |cnt mul'|
|00000430| 63 68 67 20 31 30 30 20 | 67 65 7b 31 20 61 64 64 |chg 100 |ge{1 add|
|00000440| 7d 7b 31 20 65 78 63 68 | 20 73 75 62 7d 69 66 65 |}{1 exch| sub}ife|
|00000450| 6c 73 65 7d 64 65 66 0e | 2f 73 70 6f 74 74 6f 70 |lse}def.|/spottop|
|00000460| 72 6f 63 65 73 73 2b 7b | 61 6c 6f 61 64 20 70 6f |rocess+{|aload po|
|00000470| 70 20 73 70 6f 74 73 20 | 65 78 63 68 20 67 65 74 |p spots |exch get|
|00000480| 20 61 6c 6f 61 64 20 70 | 6f 70 20 70 6f 70 20 70 | aload p|op pop p|
|00000490| 6f 70 23 30 20 31 20 33 | 7b 70 6f 70 20 34 20 69 |op#0 1 3|{pop 4 i|
|000004a0| 6e 64 65 78 20 6d 75 6c | 20 34 20 2d 31 20 72 6f |ndex mul| 4 -1 ro|
|000004b0| 6c 6c 7d 66 6f 72 1b 34 | 20 61 72 72 61 79 20 61 |ll}for.4| array a|
|000004c0| 73 74 6f 72 65 20 65 78 | 63 68 20 70 6f 70 7d 62 |store ex|ch pop}b|
|000004d0| 64 66                   |                         |df      |        |
+--------+-------------------------+-------------------------+--------+--------+